LOCAL COLSF:={"Black","Brown","Red","Orange","Yellow","Green","Blue","Violet","Grey","White","Gold","Silver"};
LOCAL COLSFV:={0,1,2,3,4,5,6,7,8,9};
LOCAL COLMT:={"Black","Brown","Red","Orange","Yellow","Green","Blue","Violet","Grey","White"};
LOCAL COLMTV:={1,10,100,1ᴇ3,1ᴇ4,1ᴇ5,1ᴇ6,1ᴇ7,1ᴇ8,1ᴇ9,.1,.01};
LOCAL COLTL:={"Brown","Red","Orange","Yellow","Green","Blue","Violet","Grey","Gold","Silver"};
LOCAL COLTLV:={"±1%","±2%","±0.05%","±0.02%","±0.5%","±0.25%","±0.1%","±0.01%","±5%","±10%"};
LOCAL COLTC:={"Black","Brown","Red","Orange","Yellow","Green","Blue","Violet","Grey"};
LOCAL COLTCV:={"250 ppm/K","100 ppm/K","50 ppm/K","15 ppm/K","25 ppm/K","20 ppm/K","10 ppm/K","5 ppm/K","1 ppm/K"};
LOCAL B1,B2,B3,B4,B5,B6;

EXPORT MAIN()
BEGIN
PRINT();
INPUT(N,"# of bands?","N","Enter number of bands.");
IF N<3 OR N>6 OR FP(N)≠0 THEN
RETURN "N can only be an integer and 3≤N≤6.";
ELSE
CASE
IF N==3 THEN N3() END;
IF N==4 THEN N4() END;
IF N==5 THEN N5() END;
IF N==6 THEN N6() END;
DEFAULT 
END;
END;
END;

N3()
BEGIN
INPUT({{B1,COLSF},{B2,COLSF},{B3,COLMT}},"Enter all of the values.",{"1st","2nd","3rd"},{"Choose color of 1st band","Choose color of 2nd band","Choose color of 3rd band"});
R:=(GET(COLSFV,B1)*10+GET(COLSFV,B2))*GET(COLMTV,B3);
PRINT("Resistance: "+R+"Ω (±20%)")
END;

N4()
BEGIN
INPUT({{B1,COLSF},{B2,COLSF},{B3,COLMT},{B4,COLTL}},"Enter all of the values.",{"1st","2nd","3rd","4th"},{"Choose color of 1st band","Choose color of 2nd band","Choose color of 3rd band","Choose color of 4th band"});
R:=(GET(COLSFV,B1)*10+GET(COLSFV,B2))*GET(COLMTV,B3);
PRINT("Resistance: "+R+"Ω ("+GET(COLTLV,B4)+")")
END;

N5()
BEGIN
INPUT({{B1,COLSF},{B2,COLSF},{B3,COLSF},{B4,COLMT},{B5,COLTL}},"Enter all of the values.",{"1st","2nd","3rd","4th","5th"},{"Choose color of 1st band","Choose color of 2nd band","Choose color of 3rd band","Choose color of 4th band","Choose color of 5th band"});
R:=(GET(COLSFV,B1)*100+GET(COLSFV,B2)*10+GET(COLSFV,B3))*GET(COLMTV,B4);
PRINT("Resistance: "+R+"Ω ("+GET(COLTLV,B5)+")")
END;

N6()
BEGIN
INPUT({{B1,COLSF},{B2,COLSF},{B3,COLSF},{B4,COLMT},{B5,COLTL},{B6,COLTC}},"Enter all of the values.",{"1st","2nd","3rd","4th","5th","6th"},{"Choose color of 1st band","Choose color of 2nd band","Choose color of 3rd band","Choose color of 4th band","Choose color of 5th band","Choose color of 6th band"});
R:=(GET(COLSFV,B1)*100+GET(COLSFV,B2)*10+GET(COLSFV,B3))*GET(COLMTV,B4);
PRINT("Resistance: "+R+"Ω ("+GET(COLTLV,B5)+"), Temp.Coef. = "+GET(COLTCV,B6))
END;